home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / S / Solve.cpt / solve / loan next >
Text File  |  1987-04-23  |  270b  |  7 lines
  1. precision = 2
  2. monthly_interest = yearly_interest / 12.0;
  3. months = years * 12.0;
  4. payments = principle / annuity( monthly_interest / 100.0, months);
  5. costOfLoan = payments * months - principle;
  6. costPerPayment = costOfLoan / months;
  7. principlePerPayment = principle / months;